home *** CD-ROM | disk | FTP | other *** search
/ Aminet 13 / Aminet 13 - August 1996.iso / Aminet / dev / e / Server10.lha / testserv.e < prev   
Text File  |  1996-05-17  |  529b  |  30 lines
  1. /*
  2. **
  3. ** ServerPort v1.0 by Dr. Ice/lISENCE
  4. **
  5. ** This utility will send a message to the current port (if found)
  6. ** It will return TRUE or FALSE if anything goes wrong..
  7. **
  8. ** This E module is specially made for /X coders, thanks to Splash
  9. ** for the ASM-routine..
  10. **
  11. ** The usage is quite easy:
  12. **
  13. ** Usage: Portname, command
  14. **
  15. ** See SERVERCONST.e for commands
  16. **
  17. */
  18.  
  19. MODULE    '*serverconst',
  20.     '*server'
  21.  
  22. DEF    open
  23.  
  24. PROC main()
  25.     IF (open:=serverPort('AEServer.0',SV_CHAT))=NIL
  26.         WriteF('Error opening server\n')
  27.     ENDIF
  28. ENDPROC
  29.  
  30.